Function houseClass(house As String)
    If house = "?" Then
        houseClass = "□ 自建房屋     □ 既有房屋" & Chr(13) & "□ 公共建筑     □ 其它形式"
    End If
    If house = "自建房屋" Then
        houseClass = "√ 自建房屋     □ 既有房屋" & Chr(13) & "□ 公共建筑     □ 其它形式"
    End If
    If house = "既有房屋" Then
        houseClass = "□ 自建房屋     √ 既有房屋" & Chr(13) & "□ 公共建筑     □ 其它形式"
    End If
    If house = "公共建筑" Then
        houseClass = "□ 自建房屋     □ 既有房屋" & Chr(13) & "√ 公共建筑     □ 其它形式"
    End If
    If house = "其它形式" Then
        houseClass = "□ 自建房屋     □ 既有房屋" & Chr(13) & "R 公共建筑     √ 其它形式"
    End If
End Function
